RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 


**F ILE®*1D**PARSEP 


PPPPPPPP 


PPPPPPPP 
P PP 


PPPPPPPP 
PPPPPPPP 


L 
LLLLLLLLLL 
LLLLLLLLLL 
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PP eeese 
PP eeee 
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page number to internal format 1b-se Sep-1984 ¢ 9: 65:02 AX-11 Bliss-32 v4 


~Sep-1984 13:07: RUNOFF .SRCIPARSEP.BLI; 
ZTITLE ‘Co nyery page number to int phat format' 
Por itesore SEP ¢ IDENT = ‘V04-000' 
ADDRESSING _MODE (EXTERNAL =LONG RELATIVE ,NONEXTERNAL=LONG RELATIVE) 
) sz 
BEGIN 


ESSE ESSIOLILI TIE T ET TT TTT TTT TTT Teer Trier ci rir titi ii iii tii tii iti titi iitiit 


'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B * 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. * 
'® ALL RIGHTS RESERVED. * 
® 
's THIS SOFTWARE IS PUAN SHED ues A LICENSE AND MAY BE USED AND COPIED * 
'® ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND gets THE * 
® 
: E PRO I * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. * 
. ® 
'® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
'® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
'® CORPORATION. * 
® 
'® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. . 
® 
| Odibeiansnsentdebhshneebebinabeontemetnbeninsbseaneekednnienniinaeebannen 
' 
ie 
i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 
i ABSTRACT: Translates a ‘human-readible’’ page number into internal format. 


' 

' 

i 

ENVIRONMENT: Transportable 

: AUTHOR: R.W.Friday CREATION DATE: February 1979 


~ 


Mm 4 
Pp Convert page number to internal format 16-Sep-1984 2:27:09 AX-11 Bliss-32 V4.0-74 Pa 2 
v0e= 500 Revision History ea eeen tee Ph Gb ee | HAMA) Obleg ze ve ores 9° 625 


; & 042 1 XSBITL ‘Revision History’ 

>; 44 045 1! 

3; 65 044 1 ! MODIFIED BY: 

; & 045 1! 

: 67 ek 1! 005 REMO0005 Ray Marshall 21-Mar-1984 

; «648 047 1! Implemented the foreign Language conditionals for compiling 
; 649 Be8 1! fixed output words. At this time, we only have the German 
; 0649 1! translations available. But, since she German word for INDEX 
; 5 Bees : is the same as in English, that conditional isn't used. 
Re 052 13 

3 ee 0088 ee me | edit of all modules. Updated module names, idents, 

3 5 54 1! copyright dates. Changed require files to BLISS library. 

: = 0055 1! 

i 0056 1 !-- 


| 
004 KAD00004 Keith Dawson 07-Mar-1983 
| 
| 
| 
| 
| 
} 
| 
| 


PARS 


N 4 
nvert page number to internal format 16-Sep-1984 01:27:09 AX-11 Bliss-32 V4.0-74 Pp | 
v0e 500 ove 1ergee=13RE 94:55:22 CIPARS ; ae 53 


dule Level Declarations RUNOFF .SR EP.BLI; 
SSBTTL "Module Level Declarations’ 

| TABLE OF CONTENTS: 
i 
4 
' 


i INCLUDE FILES: 


ww 


RARY ‘NXPORT: Meese ' XPORT Librar 
UIRE ‘REQ:RNODEF' ' RUNOFF variant definitions 


DSRPLUS XTHEN 
RARY "REQ:DPLLIB"; ! DSRPLUS BLISS Library 


| 
| 
RARY 'REQ:DSRLIB'; ! DSR BLISS Library 
| 
| 
| 
| 
| 
| 
| 


PAPAS 


oe Bes ow 


EQUATED SYMBOLS: 
OWN STORAGE: 


EXTERNAL REFERENCES: 


L 
R 
% 
L 
yee 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
EXTERNAL LITERAL ‘Error messages 
RNF CRP; 


EXTERNA 
FsOt : FIXED _STRING, 
KHAR; 


EXTERNAL ROUTINE 
CONVLB, 


ERM, 
GE TNUM, 
GSLU; 


CONAVE WN OOD NOAUNE WN O ODNOAU EWN OO CONOU EW O0O~ 
a kd 


MMNNNININNIN 2 2 2 OO OS SS SM OOOO SGOOCOOCOCOONONO 


vert page number to internal format 
ule Level Declarations 


GLOBAL ROUTINE PARSEP (IRA, PAGEN) = 


5 
$ep-1984 01:27:09 AX-11 Bliss-32 V4.0-74 
ety 7 tt abd RUNOFF .SRCJPARSEP.BLI; 


lee 
' FUNCTIONAL DESCRIPTION: 
PARSEP scans IRA in an attempt to recognize a page number. 


'Try for a simple page number. 
mk. T GETNUM (.IRA, NUMBER_VALUE, NUMBER_SIGN, NUMBER_LENGTH) 


‘Bad number (as opposed to none). Give up. 


Con 
Mod 
; 1 
3; WW 1 
; 104 a. 2 
; 19? § } 
: 109 46 1! 
; 108 > ee If a page number is recognized, the results are returned © 
> 109 : 1 / in PAGEN, and PARSEP returns TRUE as its completion code. 
, 3 1 If a page number is not recognized, PAGEN is left in an 
; ‘3 8 : i } undefined state, and PARSEP returns false. 
: 118 8 re ! FORMAL PARAMETERS: 
‘ee eh 0 tg € IRA is the FIXED _STRING to be scanned. PAGEN is where 
; 116 0245 1! the results go. 
.-3ir 0244 1! 
; «6118 0245 1 ! IMPLICIT INPUTS: 
; 119 0246 1! 
; veo 0247 1! The format of the page number is implicit to this routine. 
; lel bSe5 1! The required format is: 
: \$¢ 0249 1! TION=PAGE SUBPAGE 
. 4 0250 1! where SECTION is a digit or ose of letters, thereby indicating 
3 iss 0251 1! a chapter, appendix, or the index, 
s 125 0 26 1! where the ‘-" is required iff SECTION is present, 
s 126 0253 1! where PAGE is required if SECTION is a number, and indicates 
: 127 0254 1! the page number, 
: 1¢8 8S22 ; where SUBPAGE, if present, is a single letter. 
: 10 0257 1 ! IMPLICIT OUTPUTS: None 
s 615i 0258 1! 
5 136 0259 1 ! ROUTINE VALUE: 
s 69S 0260 1 ! COMPLETION CODES: 
: 134 0261 1! 
s i395 Osos , 7 Returns TRUE if a page number was recognized, and it was ok. 
3 136 3507 : Returns FALSE if no page number was found, or it was bad. 
; «138 265 1 ! SIDE EFFECTS: None 
; «4139 66 1! 
3; 6140 67 1 !-- 
3: 141 0268 1 
; 196 0269 BEGIN 
; (14 534 
> 144 0271 P 
s 745 8 a IRA : REF FIXED STRING 
> 146 7 PAGEN : REF PAGE_DEFINITION; 
3 «6147 0274 
; 148 0275 OCAL 
3 «6149 0 6 HOLD_NUMBER 
> 150 0 ? NUMBER _VALUE, 
3; «151 8 NUMBER_SIGN 
: 13¢ 7 NUMBER~LENGFH; 
. 3 0 
3: «(154 1 
.: 2 § 
: 136 
s 95 4 
; 158 5 


000009090000 


“1384 91:37:09 AX=11 Bliss-32 V4.0-74 Page cal | 


5 
PARS Convert page number to internal format 1$-sep 
14-Sep-1 7:44 RUNOFF .SRCJPARSEP.BLI; 


P 
y0e=500 Module Level Declarations 


= 
uw 
oO 


BEGIN | 
ERM (RNFCRP, 0 ,0); 
RETURN FALSE; 


coCDCD 
CoN 


ELSE 
IF_,NUMBER_LENGTH GTR 0 
THEN 


‘A number was specified. 
seg if it's a page number or chapter number yet. 


| tees vite LSS 0 
!A negative number is illegal. Give up. 


N 
ERM (RNFCRP, 0, 0); 
RETURN FALSE; 

END; 


| 

HOLD_NUMBER = .NUMBER_VALUE; | 
‘If another number follows, the first number was a 

‘a chapter number. Otherwise it was a page number. 

| 

| 

| 


:The following code catches the case of ‘I-i'' ... which would cause ERMA to 
‘wander out into space, if GETNUM is allowed to call ERMA (RNFMFN ...). 
IF .KHAR EQL ‘= 

oe ans NOT DIGIT (CHSRCHAR (.FS_NEXT (IRA))) 


‘0909 09 09 09 09 SI NI SII INI NNO AAA AAA AOAO 


EGIN 
ERM (RNFCRP, 0, 0); 
Ae FALSE; 


oy GETNUM (. IRA, NUMBER_VALUE, NUMBER_SIGN, NUMBER_LENGTH) 
‘Bad number. Give up. 
BEG] 


ERM (RNFCRP, 0, 0); 
RETURN FALSE; 


ELSE 
IF_ .NUMBER_LENGTH GTR 0 
THEN 


'Got a age number. Save it. 
PAGEN FSer TYP] = SCT_CHAPT; 


SCOOCOCOCSOCOOOOOO oo0000 


SCT-NUMBER] = [HOLD NUMBER; 
PAGEN CSCT_PAGE) = ABS (.NOMBER_VALUE) ; 
penew now merges with looking for a subpage. 
ELSE 
'There is no second number, so first number 
‘is rees ay a@ page number. 


PAGEN CSCT_PAGE) = .HOLD_NUMBER 
ne now merges with looking for a subpage. 


CGOOOOOCOOSOCOOCOOCOSOSOOSSOSOSOSSSOOOOSCOCGOOCODOOCOCOOCOOCOOOOOOOOOOCOO 


WAAAI AAA AAAI AAW AAA AAA AAA AANA AIA IAA AAI 


BBP AWA AAAI PPIPIPPINNINIIN 4 2 OP OO OS S| SH DOOOCOCOCOOCOCOCOOOOOOOOOOOD 
MRO ODN US WN OC OONOA NEW — OOONA UE WIN 0 DOONAN EW OOO NOU SW "O0 


PPP PAAR BEE BE FAA & BE EWA & BANANA BBD 


~~ tt BH OOOD 


Ronsnononofofononory 


cc ¢€e 


¢ecc cc 
CSGOOOOCOOOSOOCOSOOOCCOOOCOOCOOSOOSOSOSOCOCOSCOOOOOCOOOCOOOOOOOOOOOOOOOO 


AANA AAAI. AAA WIAA A AA AAAI AAA AANA AAAI AIA ANAM AAA 
OOO OO 00000900 09 09 09 09 09 00 SI NIN NS NNN NN DDD PAA AA AA III III 


oO 
Se eS SRA SSS RAN MHS SONOS AF UNO DO0 GR PU O00 SO dO O00 Owen oe 


eee ee ee ee tt ot to tt tt tt ot ee te 


oo 


0 5 
Convert page number to internal format 16-Sep-1984 01:27:09 AX-11 Bliss 0- 
Module Level Declarations 12-08-38 O1:67 0? } Bliss-32 V4.0-74 


END 
ELSE 
'No Leading number, so try for letters. 
BEGIN 
FS_INIT (FSO1); 
ion (. IRA, FSO1) NEQ GSLU_NORMAL 
'User said something strange. Give up. 
BEGIN 
ERM (RNFCRP, 0, 0); 
RETURN FALSE; 
END 
ELSE 
!Got_ something starting with a letter. 
BEGIN 
LOCA 


L 
index_string_length : 
INITIAL(5); 


ZIF french XTHEN 


ZELSE 
ZIF italian XTHEN 
INITIAL(5); 
ZELSE ! The German and Eng) ise words are the same length. 
INITIAL(5); 
MFI FI 
7 (FSO1) EQL .index_string_length 
IF CHSEQL ( .index_string length 
oe START (F801) . 
,-index_string_length 


»CHSPTR (UPLIT ("INDEX'))) 


ZIF french XTHEN 


XELSE 
ZIF italian XTHEN 
»CHSPTR (CUPLIT ("INDEX"))) 


ZELSE ! German and English are the sam 
MFI XFI 


e word here: 
»CHSPTR (CUPLIT (*INDEX"))) 


THEN 

!User_ said /ORANGE:'INDEX...." 
parse with logic to get a page number. 
PAGEN CSCT_TYPJ = SCT_INDEX 


re are no 5 character appendix names. Give up. 


ERM (RNFCRP, 0, 0); 
RETURN FALSE; 
END 


ELSE 
'The 


ELSE . 
'Found an appendix letter 
BEGIN 


‘Convert strin ig equivalent binary value and save it. 
PAGEN EScT NUMBER = CONVLB(.FS_START(FSO1), .FS_LENGTH(FSO1)); 
PAGEN CSCT_TYP] = SCT_APPEND; 


RUNOFF .SRCJPARSEP.BLI; 


. 
o 
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* 
. 
om 
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o 
° 
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ems Convert page number to internal format 16-5 Sep 4 7:09 AX-11 Bliss-32 V4.0-74 e 7 
00.500 Module Level Declarations 14-Sep 71982 of: 8: 744 RUNOFF .SRCJPARSEP.BLI; reat (4) | 


a sub age. 
FS rinit FS0) “ 
IRA, F501): 


IF <FS_LENGTH (FSO1) NEQ 0 

PAGEN CSCT_SUB_PAGE] = CONVLB (.FS_START(FSO1), .FS_LENGTH(FSO1)); 
RETURN TRUE; 
END; 


ES 


: 273 400 5 
3 2746 401 4 END; 

3 ef 0402 4 

3 f eet ? ‘Attempt to get a page number | 
; 8 the 2 ene GETNUM (.IRA, NUMBER_VALUE, NUMBER_SIGN, NUMBER_LENGTH) 
; 
3 80 0407 4 'Bad number. Give u 

: 581 0408 N 7 | 
: 388 ERM (RNECRE, 0. 0); 
3 8 RETU FALSE; | 
; 84 5 A Ni 
$ 85 4 ELSE 

; 286 4 

3 287 4 IF .NUMBER_LENGTH GTR 0 | 
3 88 4 THEN 

; 289 5 BEGIN | 
; 90 5 PAGEN CSCT_PAGE] = ABS (.NUMBER_VALUE); j 
3 291 5 ‘Merge with logic to get a subpage. 

3 4 5 N | 
; 9 4 LSE 

; 94 4 PAGEN CSCT_PAGE] = 

3 95 3 END; 

; 296 END; 

; 97 

: 98 

3 99 

; 300 

: 302 5 

: 303 § 

; 304 

; 2 

; 2 

: 1 


fo jew lala lo lela lelelelqjlelelelelalelealelelelelealeloala! 
Saleh ek eh ek ee ek ek ek et ee ek ek ee tee Oe eke ee ee ee ee ee ee 
PWAAAININPONIMPOPUPUNINYNY 2 PO OO Os OO 
FAWN OOWDNA UNE WN S(O OONOUS WR —O”0 


WANN nononenononononononenonofnory 


'Success. 
'End of PARSEP 


oO 
~ 


-TITLE PARSEP Convert page number to internal format 
-IDENT \V04-000\ 


-PSECT S$PLITS,NOWRT,NOEXE,2 
00 00 00 58 45 44 4E 49 00000 P.AAA: .ASCII \INDEX\<0><0><0> : 


-EXTRN RNFCRP, FSO1, KHAR 
~EXTRN a ERM, GETNUM 
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o 
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° 
o 
o 
. 
o 
. 
om 
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. 
. 
a 
. 
cf 
. 
e 


EXTRN 
-PSECT S$CODE$,NOWRT,2 
01FC 00000 -ENTRY PARSEP, Save R2,R3.R4,R5,R6,R7,R8 : 0229 
58 000000006 EF 9€ 0002 MOVAB CONVLB, R8 : 
7 99000006 EF 9E 990 MOVAB GSLU, ar* ; 
g 0 443 EF 9E 19 MOVAB GETNUM, R6 $ 
g commuuove ee Sanne TANS Sls : 
E DD 00021 PUSHL 0283 | 


FS | 
PARSEP Convert page number to internal format 16-Sep-1984 27:09 AX-11 Bliss-32 V4.0-74 P 
v04-600 Module Level Declarations 10-88-1383 93:85:02 RUNOFF. SRC PARSEP BL Ist sine (a3 | 
08 AE 9F 00023 PUSHAB NUMBER_SIGN ; | ; 
1 AE 9F 000 6 PUSHAB NUMBER~VALUE : | ; 
54 04 ac 00 0 MOVL IRA, R& : : 
4 DD D PUSHL : ; 
be 4 FB 0 F CALLS #4, GETNUM : ; 
09 0 € BLBC : : 
6 f 0 Ist NUMBER_LENGTH : 0291 ; 
08 AE D5 00039 TSTL § NUMBER_VALUE + 0297 : 
Q 18 0003c¢ BGEQ 3 : : 
PORE DO 0041 28: ROVE —_NUMBER_VALUE, HOLD NUMBER : 0305 ; 
2D 000000006 F D1 Sods CMPL KHAR, #45. - + 0311 ; 
C 12 0004C BNEG : ; 
30 06 B4 91 D004 CMPB ss «4(R4), #48 + 0312 : 
EA 1F 0005 BLSSU : : 
39 04 B4 91 00054 CMPB  =s-«@4(R4), #57 : : 
£4 1A 00058 BGTRU 1$ : : 
E DD O005A 3$ PUSHL SP + 0319 ; 
08 AE 9F 0005¢ PUSHAB NUMBER_SIGN : : 
10 AE 9F O005F PUSHAB NUMBER” VALUE : : 
54 DD 00062 PUSHL R4 : : 
64 04 FB 00064 CALLS #4, GETNUM : : 
75 50 €9 00067 BLBC : ; 
50 08 AC DO 0006A MOVL  PAGEN, RO > 0331 ; 
6E D5 0006E TSTL | NUMBER_LENGTH : 0327 : 
11 15 00070 BLEG 4$ : : 
$0 04 00 01 FO 00072 INSV #1, #0, #4, (RO) > 0331 : 
04 Ad 52 D0 0007 MOVL § HOLD_NUMBER, 4(RO) : 0332 : 
51 08 AE DO 00078 MOVL | NUMBER_VALUE, R1 : 033 ; 
7D 19 0007F BLSS 10$ : : 
7E 11 00081 BRB 11$ : : 
08 a0 52 DO 00083 4$ MOVL § HOLD_NUMBER, 8(RO) : 0340 : 
7C 11 00087 BRB 12$ : 0319 ; 
Oc AS D4 00089 5$ CLRL FF S01412 : 0347 ; 
65 10 AS 9E 0008C MOVAB S01+16, FS01 : ; 
04 AS 65 D0 00090 MOVL S01, FS014+4 : ; 
30 BB 00094 PUSHR #*M<R4,R5> : 0349 : 
67 02 FB 00096 CALLS #2, GSLU 5 3 
01 50 Dd1 00099 CMPL = RO, #1 ; : 
41 12 0009C¢ BNEG 8$ : 
50 05 D0 O09 MOVL #5, INDEX_STRING_LENGTH : 0358 
50 OC is Dt 0A cAPL FS614+12, INDEX_STRING_LENGTH : 0370 
00000000" EF 00 «BS 30 23 O07 CMPCS NDEX_STRING_LENGTH, @FSO1, P.AAA : 0372 
08 BC 04 00 63 ig $08 INSV #2, #0, #4, @PAGEN > 0386 
15 11 0008 BRB 7 : 
52 08 AC DO OOOBA 68: MOVL = PAGEN, R2 : 0398 
0¢ aS DD OOBE PUSHL FSO1+{2 ; 
63 DD 99¢ PUSHL S01 F 
68 : FB 00C3 CALLS #2, CONVLB ; 
04 a2 50 pO 000C6 MOVL RO, 4(R2) ; 
04 0 5 FO 6 CA INSV #3, #0, #4, (R2) : 0399 
if pd CF 7$: PUSHL SP : 0405 
08 AE 9F 00001 PUSHAB NUMBER_SIGN ; 
1 AE 9F 00004 PUSHAB NUMBERVALUE ; 


PARSEP 
v04-000 


08 BC 


308 
; 309 
310 


Name 


SPLITS 
SCODES 


: Routine Size: 


309 


eaeie ee abe 
RCJPARSEP.BLI; 


5 
Convert page number to internal format 18-52 -1984 7:09 AX-11 BL 
Module oval Declarations 12-8 08- 1 3be %} 65:0? RUNOFF .S 
4 DD 00007 PUSHL R4 
66 4 FB 09 CALLS #4, GETNUM 
11 0 5 ye BLBS =- RO 
E 7C OOODF 8$: CLRQ = = §P) 
000000006 BF DD 000E1 PUSHL #RNFCRP 
900000006 EF ; re Oe? CALLS #3, ERM 
a. 3 FE BRB 16 
50 08 Al So 000FO 98 MOVL _ PAGEN, RO 
Ge 05 F4 TSTL NUMBER _LENGTH 
; F 1 borg BLEG «= «13S 
53 08 AE 06 OF MOVL § NUMBER_VALUE, R1 
1 OG C BGEQ 118 
51 1 ce (FE 10$ MNEGL 1, R1 
08 Ad 1D 0:91 11$ MOVL 1, 8(RO) 
04 11 00105 128 BRB 14$ 
08 Ad 01 00 0107 13$ MOVL #1, 8(RO) 
0c AS 04 00108 i4$ CLRL —- FS1412 
65 10 A5 9 0108 MOVAB FS01+16, FS01 
04 AS 65 DO 0011 MOVL S01, FS01+4 
30 BB 00114 PUSHR #*M<R4,R5> 
67 02 FB 00118 CALLS #2 6stu 
50 Oc A 00 00118 MOVL 501412, RO 
OD 13 OO11F BEQL -:15$ 
50 DD 00121 PUSHL RO 
65 0D 00123 PUSHL  FSO1 
68 02 FB 00125 CALLS #2, CONVLB 
10 10 50 F 01 8 INSV RO, #16, #16, @PAGEN 
50 01 DO OO12E 15$:  MOVL #1. RO 
04 00131 RET 
50 D4 00132 168: CLRL = RO 
04 00134 RET 
bytes, Routine Base: S$CODE$ + 0000 
1 
1 END 'End of module 
0 ELUDOM 


PSECT SUMMARY 
Bytes Attributes 
8 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,A 
309 NOVEC.NOWRT, RD. EXE.NOSHR, LCL. REL, CON.NOPIC.A 


Library Statistics 


Processing 


he Convert page number to internal format 16- Sep-1 7:09 AX-11 Bliss-32 V4.0-74 
002500 Module Level Declarations 14- 500-1944 9}: 85; 244 RUNOFF ..SRCJPARSEP PBL Ist 
File Total Loaded Percent Mapped Time 
$255$DUA eT Ssh -L32;1 9 0 252 :00.1 
“Hee e SD UASBS CRUNDET SRCSDSRL TB L32s1 1328 24 86 $0:00:2 


Sete Ge Ge Ge Ge we 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:PARSEP/OBJ=OBJ$:PARSEP MSRC$:PARSEP/UPDATE=(ENH$:PARSEP) 
a 309 code ’ 8 data bytes 


un Time :07. 
lhe y fines 0 133-6 
Lines/CPU Min: 427 
Lexemes/CPU-Min: 14196 
ameey Used: 101 pages 
Compilation Complete 


ENT CORPORATION 
ND PROPRIETARY 


P 
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